home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Data 2005 May / CD Rom Data Mayıs 2005.iso / Media / VideoMix.dcr / script_1_script_Genel.ls < prev    next >
Encoding:
Text File  |  2005-04-27  |  1.1 KB  |  34 lines
  1. global Videolar, Videox, VMetinler
  2.  
  3. on prepareMovie
  4.   VYukle()
  5.   Videox = 1
  6.   VGoster()
  7.   sprite(10).visible = 0
  8.   if Videolar.count > 1 then
  9.     sprite(11).visible = 1
  10.   else
  11.     sprite(11).visible = 0
  12.   end if
  13. end
  14.  
  15. on VGoster
  16.   importFileInto(member("text_VideoMix"), the moviePath & "VideoMix\" & VMetinler[Videox])
  17.   importFileInto(member("Teaser"), the moviePath & "VideoMix\Video\" & Videolar[Videox])
  18.   member(1, "Video").name = "Teaser"
  19.   member(1, "metinler").name = "text_VideoMix"
  20.   SAdet = member("text_VideoMix").line.count
  21.   member("text_VideoMix_ekrandaki_1").text = member("text_VideoMix").line[1]
  22.   member("text_VideoMix_ekrandaki_2").text = member("text_VideoMix").line[2]
  23.   member("text_VideoMix_ekrandaki_3").text = member("text_VideoMix").line[3..SAdet]
  24.   member(1, "Video").controller = 1
  25.   KCubuk = member("text_VideoMix_ekrandaki_3").lineCount > 11
  26.   sprite(18).visible = KCubuk
  27.   sprite(19).visible = KCubuk
  28. end
  29.  
  30. on VYukle
  31.   Videolar = baFileList(the moviePath & "VideoMix\Video\", "*.*")
  32.   VMetinler = baFileList(the moviePath & "VideoMix\", "*.txt")
  33. end
  34.